var a,b,c: clVector; begin a.CopyCplxFromArray(TSingleArray.Create(1,-2,3,4)); // a= [1-2i, 3+4i] a.CplxToReal(b,c); // b = [1, 3], c = [-2, 4] end;